home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / memory / emsaw41s.zip / TEST1P.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-26  |  654b  |  29 lines
  1. {    TESTP.PAS     }
  2.  
  3. program main(output);
  4. var
  5. A:integer;
  6. totsiz, avsiz, index, bitnu, length, val1, val2: longint;
  7. {$I type400.pas}
  8. {$L emsw40sp.obj}
  9. {or emsw40p.obj}
  10.         begin
  11.     eminit;
  12.     sizar (totsiz, avsiz);
  13.     writeln(totsiz:8,'      ',avsiz:8);
  14.     newar (A, avsiz);
  15.     val1:=99999999;
  16.     setint (A, avsiz, val1);
  17.         val2:=getint (A, avsiz);
  18.     writeln (val1:8,'      ',val2:8);
  19.     index:=avsiz-2;
  20.     bitnu:=7;
  21.     length:=30;
  22.     setf (A, index, bitnu, length, val1);
  23.     val2:=getf (A, index, bitnu, length);
  24.     writeln(val1:8,'      ',val2:8);
  25.         freear (A);
  26.            writeln(totsiz:8,'      ',avsiz:8);
  27.         readln;
  28.         end.
  29.